home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / amicdrom / amicd115.lha / AmiCDROM / AmiCDROM.Install < prev    next >
Text File  |  1994-11-03  |  18KB  |  605 lines
  1. ;$VER: AmiCDROM Install 1.0 (03.11.94)
  2. ;⌐ 1994 Thomas Kessler
  3.  
  4. (set #amicdrom-version "1.15")
  5. (set #amicdrom-date "(03-Nov-94)")
  6. (set #install-version "1.0")
  7.  
  8. (set old-level @user-level)
  9. (set @default-dest "SYS:")
  10.  
  11. (set #wbversion (getversion "libs:version.library"))
  12. (set #wbversion (/ #wbversion 65536) )
  13. (set #na "N/A")
  14.  
  15. (set ldir "SYS:L")
  16. (set ldir2 "SYS:L/")
  17.  
  18. (complete 0)
  19.  
  20. (set #space " ")
  21. (if (<= (/ (getversion "C:Mount") 65536) 37) (set #space "-"))
  22.  
  23. (if (NOT (exists "C/GetNames")) (abort "Can't find file: 'C/GetNames'"))
  24.  
  25. (run
  26.     (prompt "")
  27.     (help #na)
  28.     "C/GetNames DEVICES ENV NOROM SCSI EXCLUDE QUIET" ; ⌐ 1994 Thomas Kessler
  29. )
  30.  
  31. (set dev0 "enter device by hand")
  32. (if (exists ("ENV:Name.1")) (set dev1 (getenv "Name.1")))
  33. (if (exists ("ENV:Name.2")) (set dev2 (getenv "Name.2")))
  34. (if (exists ("ENV:Name.3")) (set dev3 (getenv "Name.3")))
  35. (if (exists ("ENV:Name.4")) (set dev4 (getenv "Name.4")))
  36. (if (exists ("ENV:Name.5")) (set dev5 (getenv "Name.5")))
  37. (if (exists ("ENV:Name.6")) (set dev6 (getenv "Name.6")))
  38. (if (exists ("ENV:Name.7")) (set dev7 (getenv "Name.7")))
  39. (if (exists ("ENV:Name.8")) (set dev8 (getenv "Name.8")))
  40. (if (exists ("ENV:Name.9")) (set dev9 (getenv "Name.9")))
  41. (if (exists ("ENV:Name.10")) (set dev10 (getenv "Name.10")))
  42. (if (exists ("ENV:Name.11")) (set dev11 (getenv "Name.11")))
  43. (if (exists ("ENV:Name.12")) (set dev12 (getenv "Name.12")))
  44. (if (exists ("ENV:Name.13")) (set dev13 (getenv "Name.13")))
  45. (if (exists ("ENV:Name.14")) (set dev14 (getenv "Name.14")))
  46. (if (exists ("ENV:Name.15")) (set dev15 (getenv "Name.15")))
  47. (if (exists ("ENV:Name.16")) (set dev16 (getenv "Name.16")))
  48. (if (exists ("ENV:Name.17")) (set dev17 (getenv "Name.17")))
  49. (if (exists ("ENV:Name.18")) (set dev18 (getenv "Name.18")))
  50. (if (exists ("ENV:Name.19")) (set dev19 (getenv "Name.19")))
  51. (if (exists ("ENV:Name.20")) (set dev20 (getenv "Name.20")))
  52. (if (exists ("ENV:Name.21")) (set dev21 (getenv "Name.21")))
  53.  
  54. (run
  55.     (prompt "")
  56.     (help #na)
  57.     "C:Delete >NIL: ENV:Name.#? FORCE"
  58. )
  59. ;(delete (prompt "") (help #na) "ENV:Name.x" (optional force))
  60.  
  61. (complete 1)
  62.  
  63. (user 2)
  64. (message    "\n\nAmiCDROM "#amicdrom-version"\n\n"
  65.     "a CDROM filesystem for the Commodore Amiga\n\n"
  66.     "Version "#amicdrom-version" "#amicdrom-date" ⌐ 1993,1994 Frank Munkert\nAll rights reserved.\n\n"
  67.     "Install-Script "#install-version" ⌐ 1994 Thomas Kessler\nAll rights reserved.")
  68.  
  69. (user old-level)
  70. (complete 5)
  71.  
  72.  
  73. (if dev1
  74.     (
  75.         (user 2)
  76.         (set ask-device
  77.             (askchoice
  78.                 (if dev18
  79.                     (prompt "Choose your SCSI/AT device:")
  80.                     (prompt "\nChoose your SCSI/AT device:\n")
  81.                 )
  82.                 (help "\n"
  83.                     "The first field (DEVICE) contains the name of your "
  84.                     "SCSI/AT device."
  85.                 )
  86.                     (if dev1 (choices dev0 dev1))
  87.                     (if dev2 (choices dev0 dev1 dev2))
  88.                     (if dev3 (choices dev0 dev1 dev2 dev3))
  89.                     (if dev4 (choices dev0 dev1 dev2 dev3 dev4))
  90.                     (if dev5 (choices dev0 dev1 dev2 dev3 dev4 dev5))
  91.                     (if dev6 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6))
  92.                     (if dev7 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7))
  93.                     (if dev8 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8))
  94.                     (if dev9 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9))
  95.                     (if dev10 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10))
  96.                     (if dev11 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11))
  97.                     (if dev12 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12))
  98.                     (if dev13 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13))
  99.                     (if dev14 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14))
  100.                     (if dev15 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15))
  101.                     (if dev16 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16))
  102.                     (if dev17 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17))
  103.                     (if dev18 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18))
  104.                     (if dev19 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18 dev19))
  105.                     (if dev20 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18 dev19 dev20))
  106.                     (if dev21 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18 dev19 dev20 dev21))
  107.                 (default 0)
  108.             )
  109.         )
  110.         (user old-level)
  111.     )
  112. )
  113.  
  114. (if ask-device
  115.     (
  116.         (if (= 1 ask-device) (set device dev1))
  117.         (if (= 2 ask-device) (set device dev2))
  118.         (if (= 3 ask-device) (set device dev3))
  119.         (if (= 4 ask-device) (set device dev4))
  120.         (if (= 5 ask-device) (set device dev5))
  121.         (if (= 6 ask-device) (set device dev6))
  122.         (if (= 7 ask-device) (set device dev7))
  123.         (if (= 8 ask-device) (set device dev8))
  124.         (if (= 9 ask-device) (set device dev9))
  125.         (if (= 10 ask-device) (set device dev10))
  126.         (if (= 11 ask-device) (set device dev11))
  127.         (if (= 12 ask-device) (set device dev12))
  128.         (if (= 13 ask-device) (set device dev13))
  129.         (if (= 14 ask-device) (set device dev14))
  130.         (if (= 15 ask-device) (set device dev15))
  131.         (if (= 16 ask-device) (set device dev16))
  132.         (if (= 17 ask-device) (set device dev17))
  133.         (if (= 18 ask-device) (set device dev18))
  134.         (if (= 19 ask-device) (set device dev19))
  135.         (if (= 20 ask-device) (set device dev20))
  136.         (if (= 21 ask-device) (set device dev21))
  137.     )
  138.     (
  139.         (user 2)
  140.         (set device
  141.             (askstring
  142.                 (prompt "\nEnter the name of your SCSI/AT device:\n")
  143.                 (help "\n"
  144.                     "The first field (DEVICE) contains the name of "
  145.                     "your SCSI/AT device."
  146.                 )
  147.                 (default "xxx.device")
  148.             )
  149.         )
  150.         (user old-level)
  151.     )
  152. )
  153. (complete 10)
  154.  
  155. (set startstr (cat "\"" ("DEVICE=%s" device)))
  156.  
  157. (user 2)
  158. (set unit
  159.     (askchoice
  160.         (prompt "\n\nChoose the unit (ID) of your CDROM drive:\n\n")
  161.         (help "\n"
  162.             "The second field (UNIT) contains the target ID (aka \"SCSI-ID\") "
  163.             "of your CDROM drive. If your CDROM drive supports multiple logical units, "
  164.             "such as the Pioneer DRM-604X six disk changer drive, then the 10s digit "
  165.             "of the number in this field should be the LUN of the desired disk."
  166.         )
  167.         (choices "unit 0" "unit 1" "unit 2" "unit 3" "unit 4" "unit 5" "unit 6" "unit 7")
  168.         (default 0)
  169.     )
  170. )
  171. (user old-level)
  172. (complete 15)
  173.  
  174. (set startstr (cat startstr #space ("UNIT=%ld" unit)))
  175.  
  176. (user 2)
  177. (set memtype
  178.     (askchoice
  179.         (prompt "\nMemory options:\n")
  180.         (help "\n"
  181.             "CHIP=C: Use chip memory for SCSI buffers.\n\n"
  182.             "FAST=F: Use fast memory for SCSI buffers. Please note, that some "
  183.             "SCSI devices can only read from or write to chip memory. "
  184.             "(The A3000 scsi.device is able to use fast memory.)\n\n"
  185.             "DMA:  Use 24 bit DMA memory for SCSI buffers, i.e. only "
  186.             "memory addresses below 0x01000000 are considered for "
  187.             "buffering.\n\n"
  188.             "ANY:  Use any memory available."
  189.         )
  190.         (choices
  191.             "use CHIP memory for SCSI buffers"
  192.             "use FAST memory for SCSI buffers"
  193.             "use 24 bit DMA memory for SCSI buffers"
  194.             "use ANY memory available")
  195.         (default 0)
  196.     )
  197. )
  198. (user old-level)
  199. (complete 20)
  200.  
  201. (if memtype
  202.     (
  203.         (if (= 1 memtype) (set startstr (cat startstr #space "FAST")))
  204.         (if (= 2 memtype) (set startstr (cat startstr #space "DMA")))
  205.         (if (= 3 memtype) (set startstr (cat startstr #space "ANY")))
  206.         
  207.     )
  208. )
  209.  
  210. (user 2)
  211. (set other-options
  212.     (askoptions
  213.         (prompt "\nOther options:\n")
  214.         (help "\n"
  215.             "ROCKRIDGE=R: Use Rock Ridge file names, if possible.\n\n"
  216.             "TRACKDISK=T: Use trackdisk-device calls instead of SCSI-direct calls. "
  217.             "(Some SCSI boards do not support Commodore's HD_SCSICMD "
  218.             "command. If you set the 'T' option, only the normal "
  219.             "CMD_READ is used, which will be translated by the SCSI driver "
  220.             "into the corresponding SCSI commands.)\n\n"
  221.             "SHOWVERSION=SV: Show version numbers.\n\n"
  222.             "RETRY: Do not report an error if the CDROM drive is switched off while "
  223.             "mounting the filesystem. The \"C:Mount\" program will hang until "
  224.             "the CDROM drive is switched on."
  225.         )
  226.         (choices
  227.             "use Rock Ridge file names, if possible"
  228.             "use trackdisk-device instead of SCSI-direct"
  229.             "show version numbers"
  230.             "don't report an error if CDROM is switched off"
  231.         )
  232.         (default 1)
  233.     )
  234. )
  235. (user old-level)
  236. (complete 25)
  237.  
  238. (if (IN other-options 0) (set startstr (cat startstr #space "ROCKRIDGE")))
  239. (if (IN other-options 1) (set startstr (cat startstr #space "TRACKDISK")))
  240. (if (IN other-options 2) (set startstr (cat startstr #space "SHOWVERSION")))
  241. (if (IN other-options 3) (set startstr (cat startstr #space "RETRY")))
  242.  
  243. (user 2)
  244. (set case-options
  245.     (askchoice
  246.         (prompt "\nMap filenames to lower case:\n")
  247.         (help "\n"
  248.             "LOWERCASE=L: Map ISO-9660 names to lower case.\n\n"
  249.             "MAYBELOWERCASE=ML: Do not convert the filenames if the CDROM is a "
  250.             "CDTV or CD32 disk, or a disk created by Mkisoft. "
  251.             "Otherwise, map the filenames to lower case.\n\n"
  252.             "(LOWERCASE and MAYBELOWERCASE are mutually exclusive.)"
  253.         )
  254.         (choices
  255.             "map to lower (except CDTV, CD32, Mkisoft)"
  256.             "map to lower case (always)"
  257.             "don't map filenames")
  258.         (default 0)
  259.     )
  260. )
  261. (user old-level)
  262. (complete 30)
  263.  
  264. (if (= 0 case-options) (set startstr (cat startstr #space "MAYBELOWERCASE")))
  265. (if (= 1 case-options) (set startstr (cat startstr #space "LOWERCASE")))
  266. ;(if (= 2 case-options) (...))
  267.  
  268. (user 2)
  269. (set std-buf
  270.     (asknumber
  271.         (prompt
  272.             "\n\nEnter the number of 2048 byte buffers for\n"
  273.             "general access to the CDROM drive:\n")
  274.         (help "\n"
  275.             "STDBUFFERS=SB: Number of 2048 byte buffers for general access to the "
  276.             "CDROM drive. Default = 5 buffers"
  277.         )
  278.         (default 5)
  279.     )
  280. )
  281. (user old-level)
  282. (complete 35)
  283.  
  284. (if (<> 5 std-buf) (set startstr (cat startstr #space "STDBUFFERS=" std-buf)))
  285.  
  286. (user 2)
  287. (set file-buf
  288.     (asknumber
  289.         (prompt
  290.             "\n\nEnter the number of 2048 byte buffers for\n"
  291.             "file access with the AmigaDOS Read() call:\n")
  292.         (help "\n"
  293.             "FILEBUFFERS=FB: Number of 2048 byte buffers for file access with the "
  294.             "AmigaDOS Read() call. Default = 5 buffers"
  295.         )
  296.         (default 5)
  297.     )
  298. )
  299. (user old-level)
  300. (complete 40)
  301.  
  302. (if (<> 5 file-buf) (set startstr (cat startstr #space "FILEBUFFERS=" file-buf)))
  303.  
  304. (user 2)
  305. (set diskchg
  306.     (asknumber
  307.         (prompt
  308.             "\nEnter the time between two successive diskchange checks in seconds.\n\n"
  309.             "If the value of this option is 0, then no diskchange "
  310.             "checks will be performed; in this case, you have to use "
  311.             "the C:DiskChange command in order to inform AmiCDROM that "
  312.             "a disk has been changed.\n")
  313.         (help "\n"
  314.             "SCANINTERVAL=SI: Time between two successive diskchange checks. "
  315.             "Default = 3 seconds.\n"
  316.             "If the value of this option is 0, then no diskchange "
  317.             "checks will be performed; in this case, you have to use "
  318.             "the C:DiskChange command in order to inform AmiCDROM that "
  319.             "a disk has been changed.\n"
  320.         )
  321.         (default 3)
  322.     )
  323. )
  324. (user old-level)
  325. (complete 45)
  326.  
  327. (if (<> 3 diskchg) (set startstr (cat startstr #space "SCANINTERVAL=" diskchg)))
  328.  
  329. (user 2)
  330. (set cdda-file
  331.     (askfile
  332.         (prompt
  333.             "Select the command which should be executed, when you "
  334.             "double-click a CD-DA (AudioCD) icon or click Proceed.")
  335.         (help "\n"
  336.             "PLAYCDDA=PC: Name of the command to be executed if the user double-"
  337.             "clicks at the \"CD-DA\" icon. If you want to execute "
  338.             "a command with parameters, you have to create "
  339.             "a script file containing the command plus parameters. "
  340.             "The name of the script file has to be passed as an "
  341.             "argument to the PC option. Don't forget to set the "
  342.             "\"S\" protection bit of the script file."
  343.         )
  344.         (default "Work:")
  345.     )
  346. )
  347. (user old-level)
  348. (complete 50)
  349.  
  350. (if (NOT (= "Work:" cdda-file)) (set startstr (cat startstr #space "PLAYCDDA=" cdda-file)))
  351.  
  352. (user 2)
  353. (set icon-pos
  354.     (askchoice
  355.         (prompt "\n\nSelect CD-DA (AudioCD) icon position:\n")
  356.         (help "\nDefault: WB selects position.")
  357.         (choices
  358.             "Workbench selects position"
  359.             "enter own position")
  360.         (default 0)
  361.     )
  362. )
  363. (user old-level)
  364. (complete 55)
  365.  
  366. (if icon-pos
  367.     (
  368.         (user 2)
  369.         (set x-pos
  370.             (asknumber
  371.                 (prompt "\n\nEnter the x-position for the CD-DA (AudioCD) icon:\n")
  372.                 (help "\nX position of CD-DA icon. (Default: WB selects position.)")
  373.             )
  374.         )
  375.         (set y-pos
  376.             (asknumber
  377.                 (prompt "\n\nEnter the y-position for the CD-DA (AudioCD) icon:\n")
  378.                 (help "\nY position of CD-DA icon. (Default: WB selects position.)")
  379.             )
  380.         )
  381.         (user old-level)
  382.  
  383.         (if x-pos (set startstr (cat startstr #space "XPOS=" x-pos)))
  384.         (if y-pos (set startstr (cat startstr #space "YPOS=" y-pos)))
  385.     )
  386. )
  387. (complete 60)
  388.  
  389. ;Mac
  390.  
  391. (user 2)
  392. (set ask-mac
  393.     (askbool
  394.         (prompt
  395.             "\n\n\nDo you want to configure also the options\n"
  396.             "which are for Mac-CDs only?\n")
  397.         (help "\n"
  398.             "The following options are only interesting for you, "
  399.             "if you have some Mac-CDs or if you plan to get some "
  400.             "in future."
  401.         )
  402.         (default 0)
  403.     )
  404. )
  405. (user old-level)
  406. (complete 65)
  407.  
  408. (if ask-mac
  409.     (
  410.         (user 2)
  411.         (set other-options
  412.             (askoptions
  413.                 (prompt "\nMac options:\n")
  414.                 (help "\n"
  415.                     "MACTOISO=MI: Convert Mac characters into ISO-Latin-1 (Amiga) characters. "
  416.                     "(The conversion applies only to the filenames, not to "
  417.                     "the contents of the files.) Additionally, the character "
  418.                     "':' will be converted into a '.', and '/' will be "
  419.                     "converted into '-'; this is necessary because AmigaDOS cannot "
  420.                     "handle filenames containing those characters.\n\n"
  421.                     "CONVERTSPACES=CS: Convert spaces in MacHFS filenames into underscores ('_').\n\n"
  422.                     "HFSFIRST=HF: If a new disk is mounted, AmiCDROM normally tests first "
  423.                     "if the new disk is a ISO-9660 disk. If the option \"HF\" "
  424.                     "is given, then the disk is first examined for a HFS "
  425.                     "partition.\n"
  426.                     "This option is useful if you have a \"multi-platform\" "
  427.                     "disk with both a ISO-9660 and a HFS partition. Without "
  428.                     "the option you get the ISO partition; with the option "
  429.                     "you get the HFS partition."
  430.                 )
  431.                 (choices
  432.                     "convert Mac characters into Amiga characters"
  433.                     "convert space in MacHFS filenames to underscore"
  434.                     "examine CD first for a HFS partition"
  435.                 )
  436.                 (default 0)
  437.             )
  438.         )
  439.         (user old-level)
  440.         (complete 67)
  441.  
  442.         (if (IN other-options 0) (set startstr (cat startstr #space "MACTOISO")))
  443.         (if (IN other-options 1) (set startstr (cat startstr #space "CONVERTSPACES")))
  444.         (if (IN other-options 2) (set startstr (cat startstr #space "HFSFIRST")))
  445.  
  446.         (user 2)
  447.         (set data-fork
  448.             (askstring
  449.                 (prompt
  450.                     "\nEnter the extension for the data fork\n"
  451.                     "of a file on MacHFS disks:\n\n"
  452.                     "(leave it empty, if you are not sure!)\n")
  453.                 (help "\n"
  454.                     "DATAEXT=DE: Extension for the data fork of a file on MacHFS disks.\n\n"
  455.                     "RESOURCEEXT=RE: Extension for the resource fork of a file on MacHFS disks.\n\n"
  456.                     "(If neither DE nor RE are given, DE is set to the empty "
  457.                     "string and RE is set to \".rsrc\".)"
  458.                 )
  459.             )
  460.         )
  461.         (complete 68)
  462.         (set res-fork
  463.             (askstring
  464.                 (prompt
  465.                     "\nEnter the extension for the resource fork\n"
  466.                     "of a file on MacHFS disks:\n\n"
  467.                     "(leave it empty, if you are not sure!)\n")
  468.                 (help "\n"
  469.                     "DATAEXT=DE: Extension for the data fork of a file on MacHFS disks.\n\n"
  470.                     "RESOURCEEXT=RE: Extension for the resource fork of a file on MacHFS disks.\n\n"
  471.                     "(If neither DE nor RE are given, DE is set to the empty "
  472.                     "string and RE is set to \".rsrc\".)"
  473.                 )
  474.             )
  475.         )
  476.         (user old-level)
  477.  
  478.         (if res-fork (set startstr (cat startstr #space "RESOURCEEXT=" res-fork)))
  479.         (if data-fork (set startstr (cat startstr #space "DATAEXT=" data-fork)))
  480.     )
  481. )
  482. (complete 70)
  483.  
  484. (set startstr (cat startstr "\"")) ; startup fertig
  485.  
  486. (user 2)
  487. (set device
  488.     (askstring
  489.         (prompt "\n\n"
  490.             "Enter the AmigaDOS device-name you want to use for your CDROM drive:\n\n"
  491.         )
  492.         (help #na)
  493.         (default "CD0:")
  494.     )
  495. )
  496. (user old-level)
  497. (complete 75)
  498.  
  499. ; copy 'device' to 'dev-name' and kill ':'
  500. (set dev-name (substr device 0 (- (strlen device) 1)))
  501.  
  502. (user 2)
  503. (set auto-mount
  504.     (askbool
  505.         (prompt "\n\n\n"
  506.             "Do you want to auto-mount "device" during every system-start?"
  507.         )
  508.         (help "\n"
  509.             "Workbench 2.0:\n\n"
  510.             "Auto-Mount: The entry \"Mount >NIL: "device"\" will be added "
  511.             "in your user-startup\n\n"
  512.             "No: Nothing will be added anywhere. If you want to access your "
  513.             "CDs, you will have to type \"Mount "device"\" in your shell first.\n\n"
  514.             "Workbench 2.1+:\n\n"
  515.             "Auto-Mount: The file "dev-name" will be placed in your "
  516.             "directory \"SYS:Devs/DOSDrivers\"\n\n"
  517.             "No: The file "dev-name" will be placed in your "
  518.             "directory \"SYS:Storage/DOSDrivers\"\n"
  519.         )
  520.         (choices "Auto-Mount" "No")
  521.     )
  522. )
  523. (user old-level)
  524. (complete 80)
  525.  
  526. (if (<= #wbversion 37)
  527.     (
  528.         (protect "DEVS:MountList" "+wd")
  529.         (textfile
  530.             (prompt "\nCreating Workbench 2.0 Mountlist-Entry")
  531.             (help #na)
  532.             (dest    "DEVS:MountList")
  533.             (if (exists "DEVS:MountList") (include "DEVS:MountList"))
  534.             (append "\n/* AmiCDROM filesystem V"#amicdrom-version" */\n\n"
  535.                 device"    Handler     = "ldir2"cdrom-handler\n"
  536.                 "        Stacksize   = 10000\n"
  537.                 "        Priority    = 5\n"
  538.                 "        GlobVec     = -1\n"
  539.                 "        Mount       = 1\n"
  540.                 "        Startup     = "startstr"\n"
  541.                 "#\n")
  542.         )
  543.         (if auto-mount
  544.             (
  545.                 (user 1) ; nicht auf EXPERT!!
  546.                 (startup
  547.                     "AmiCDROM"
  548.                     (prompt "\nEditing your startup")
  549.                     (help #na)
  550.                     (command (cat "Mount >NIL: " device))
  551.                 )
  552.                 (user old-level)
  553.             )
  554.         )
  555.     )
  556.     (
  557.         (if auto-mount
  558.             (set dev-dir "SYS:Devs/DOSDrivers")
  559.             (set dev-dir "SYS:Storage/DOSDrivers")
  560.         )
  561.  
  562.         (protect (tackon dev-dir dev-name) "+wd")
  563.         (textfile
  564.             (prompt "\nCreating Workbench 2.1+ mount-entry")
  565.             (help #na)
  566.             (dest (tackon dev-dir dev-name))
  567.             (append "/* AmiCDROM filesystem V"#amicdrom-version" */\n\n"
  568.                 " Handler     = "ldir2"cdrom-handler\n"
  569.                 " Stacksize   = 10000\n"
  570.                 " Priority    = 5\n"
  571.                 " GlobVec     = -1\n"
  572.                 " Mount       = 1\n"
  573.                 " Startup     = "startstr"\n"
  574.             )
  575.         )
  576.  
  577.         (protect (cat (tackon dev-dir dev-name) ".info") "+wd")
  578.         (copyfiles
  579.             (prompt "\nCreating Workbench 2.1+ mount-entry icon")
  580.             (help #na)
  581.             (source "CD0.info")        ; ***TODO***
  582.             (dest    dev-dir)
  583.             (newname (cat dev-name ".info"))
  584.         )
  585.  
  586.         (tooltype
  587.             (dest (tackon dev-dir dev-name))
  588.             (noposition)
  589.         )
  590.     )
  591. )
  592. (complete 85)
  593.  
  594. (copyfiles
  595.     (prompt "\nInstalling "ldir2"cdrom-handler")
  596.     (help #na)
  597.     (source "l/cdrom-handler")        ; ***TODO***
  598.     (dest    ldir)
  599. )
  600.  
  601. (complete 100)
  602.  
  603. (exit "")
  604. (welcome "")
  605.